inherited FormPerfil: TFormPerfil
  Tag = 8
  Left = 442
  Top = 233
  Caption = 'Perfis'
  ClientHeight = 338
  ClientWidth = 702
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited Splitter1: TSplitter
    Height = 269
  end
  inherited pnlSelec: TPanel
    Height = 269
    inherited Splitter3: TSplitter
      Top = 57
    end
    inherited pnlBusca: TGroupBox
      Height = 56
      Caption = ''
      inherited lblCriterio: TLabel
        Top = 12
        Width = 74
        Caption = 'Perfil procurado'
      end
      inherited CRITERIO: TMaskEdit
        Top = 27
      end
    end
    inherited dbgRelacao: TSMDBGrid
      Top = 60
      Height = 208
      Columns = <
        item
          Expanded = False
          FieldName = 'PERFIL_CODIGO'
          Visible = False
          FooterType = ftCustom
        end
        item
          Expanded = False
          FieldName = 'PERFIL_DESCRICAO'
          Width = 164
          Visible = True
          FooterType = ftCount
        end>
    end
  end
  inherited Panel1: TPanel
    Width = 490
    Height = 269
    inherited Splitter2: TSplitter
      Top = 257
      Width = 488
      Visible = False
    end
    inherited PageControl1: TPageControl
      Top = 260
      Width = 488
      Height = 8
      Visible = False
    end
    object GroupBox1: TGroupBox
      Left = 1
      Top = 1
      Width = 217
      Height = 256
      Align = alLeft
      Caption = 'Telas com acesso autorizado'
      TabOrder = 1
      object SMDBGrid1: TSMDBGrid
        Left = 2
        Top = 15
        Width = 213
        Height = 239
        Align = alClient
        Color = clWhite
        Ctl3D = False
        DataSource = dsMenu
        FixedColor = clWhite
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Options = [dgIndicator, dgColumnResize, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
        ParentCtl3D = False
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clBlack
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = [fsBold]
        OnTitleClick = dbgRelacaoTitleClick
        Flat = True
        BandsFont.Charset = DEFAULT_CHARSET
        BandsFont.Color = clWindowText
        BandsFont.Height = -11
        BandsFont.Name = 'MS Sans Serif'
        BandsFont.Style = []
        Groupings = <>
        GridStyle.Style = gsSoftBrick
        GridStyle.OddColor = 14675694
        GridStyle.EvenColor = 13493476
        TitleHeight.PixelCount = 24
        FooterColor = clBtnFace
        ExOptions = [eoBooleanAsCheckBox, eoDisableDelete, eoDisableInsert, eoDrawGraphicField, eoENTERlikeTAB, eoKeepSelection, eoRowNumber, eoRowSizing, eoSelectedTitle, eoShowGlyphs, eoShowLookup, eoShowRecNo, eoStandardPopup, eoBLOBEditor]
        RegistryKey = 'Software\Scalabium'
        RegistrySection = 'SMDBGrid'
        OnRefreshData = dbgRelacaoRefreshData
        WidthOfIndicator = 11
        DefaultRowHeight = 16
        ScrollBars = ssVertical
        ColCount = 2
        RowCount = 1
        Columns = <
          item
            Expanded = False
            FieldName = 'MENU_TITULO'
            Visible = True
            FooterType = ftCustom
          end>
      end
    end
    object GroupBox2: TGroupBox
      Left = 218
      Top = 1
      Width = 271
      Height = 256
      Align = alClient
      Caption = 'Autorizado na tela selecionda'
      TabOrder = 2
      object SMDBGrid2: TSMDBGrid
        Left = 2
        Top = 15
        Width = 267
        Height = 239
        Align = alClient
        Color = clWhite
        Ctl3D = False
        DataSource = dsSubmneu
        FixedColor = clWhite
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Options = [dgIndicator, dgColumnResize, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
        ParentCtl3D = False
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clBlack
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = [fsBold]
        OnTitleClick = dbgRelacaoTitleClick
        Flat = True
        BandsFont.Charset = DEFAULT_CHARSET
        BandsFont.Color = clWindowText
        BandsFont.Height = -11
        BandsFont.Name = 'MS Sans Serif'
        BandsFont.Style = []
        Groupings = <>
        GridStyle.Style = gsSoftBrick
        GridStyle.OddColor = 14675694
        GridStyle.EvenColor = 13493476
        TitleHeight.PixelCount = 24
        FooterColor = clBtnFace
        ExOptions = [eoBooleanAsCheckBox, eoDisableDelete, eoDisableInsert, eoDrawGraphicField, eoENTERlikeTAB, eoKeepSelection, eoRowNumber, eoRowSizing, eoSelectedTitle, eoShowGlyphs, eoShowLookup, eoShowRecNo, eoStandardPopup, eoBLOBEditor]
        RegistryKey = 'Software\Scalabium'
        RegistrySection = 'SMDBGrid'
        OnRefreshData = dbgRelacaoRefreshData
        WidthOfIndicator = 11
        DefaultRowHeight = 16
        ScrollBars = ssVertical
        ColCount = 2
        RowCount = 1
        Columns = <
          item
            Expanded = False
            FieldName = 'Interna'
            Visible = True
            FooterType = ftCustom
          end>
      end
    end
  end
  inherited ToolBar1: TToolBar
    Width = 702
  end
  inherited pnCabecalho: TPanel
    Width = 702
    inherited Image1: TImage
      Width = 702
    end
  end
  inherited qryDados: TADOQuery
    CursorType = ctStatic
    BeforeOpen = qryDadosBeforeOpen
    BeforeClose = qryDadosBeforeClose
    AfterClose = qryDadosAfterClose
    Parameters = <
      item
        Name = 'CRITERIO'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = '%'
      end>
    SQL.Strings = (
      'SELECT * FROM PERFIL'
      'WHERE PERFIL_DESCRICAO LIKE :CRITERIO')
    object qryDadosPERFIL_CODIGO: TWordField
      FieldName = 'PERFIL_CODIGO'
    end
    object qryDadosPERFIL_DESCRICAO: TStringField
      DisplayLabel = 'Descricao'
      FieldName = 'PERFIL_DESCRICAO'
      Size = 50
    end
  end
  inherited qryGeral: TADOQuery
    Left = 144
    Top = 96
  end
  object qryMenu: TADOQuery
    Connection = FormPrincipal.cnRegente
    CursorType = ctStatic
    BeforeOpen = qryMenuBeforeOpen
    AfterOpen = qryMenuAfterOpen
    BeforeClose = qryMenuBeforeClose
    AfterInsert = qryMenuAfterInsert
    DataSource = dsDados
    Parameters = <
      item
        Name = 'PERFIL_CODIGO'
        DataType = ftWord
        Precision = 3
        Size = 1
        Value = 0
      end>
    SQL.Strings = (
      'SELECT P.*,M.MENU_TITULO FROM PERFILMENU P'
      'INNER JOIN MENU M ON (P.MENU_CODIGO=M.MENU_CODIGO) '
      'WHERE PERFIL_CODIGO=:PERFIL_CODIGO'
      'ORDER BY P.MENU_CODIGO')
    Left = 136
    Top = 192
    object qryMenuMENU_CODIGO: TSmallintField
      FieldName = 'MENU_CODIGO'
    end
    object qryMenuPERFIL_CODIGO: TWordField
      FieldName = 'PERFIL_CODIGO'
    end
    object qryMenuMENU_TITULO: TStringField
      FieldName = 'MENU_TITULO'
      Size = 80
    end
    object qryMenuMenu: TStringField
      DisplayLabel = 'Tela'
      FieldKind = fkLookup
      FieldName = 'Menu'
      LookupDataSet = qryMenus
      LookupKeyFields = 'MENU_CODIGO'
      LookupResultField = 'MENU_TITULO'
      KeyFields = 'MENU_CODIGO'
      LookupCache = True
      Size = 80
      Lookup = True
    end
  end
  object dsMenu: TDataSource
    DataSet = qryMenu
    Left = 136
    Top = 208
  end
  object qrySubmenu: TADOQuery
    Connection = FormPrincipal.cnRegente
    CursorType = ctStatic
    AfterInsert = qrySubmenuAfterInsert
    DataSource = dsMenu
    Parameters = <
      item
        Name = 'MENU_CODIGO'
        Attributes = [paSigned]
        DataType = ftSmallint
        Precision = 5
        Size = 2
        Value = 1
      end
      item
        Name = 'PERFIL_CODIGO'
        DataType = ftWord
        Precision = 3
        Size = 1
        Value = Null
      end>
    SQL.Strings = (
      'SELECT P.* FROM INTERNAPERFILMENU P'
      'WHERE (P.MENU_CODIGO=:MENU_CODIGO) '
      'AND (P.PERFIL_CODIGO=:PERFIL_CODIGO)'
      'ORDER BY INTERNA_CODIGO')
    Left = 136
    Top = 248
    object qrySubmenuMENU_CODIGO: TSmallintField
      FieldName = 'MENU_CODIGO'
    end
    object qrySubmenuINTERNA_CODIGO: TWordField
      FieldName = 'INTERNA_CODIGO'
    end
    object qrySubmenuPERFIL_CODIGO: TWordField
      FieldName = 'PERFIL_CODIGO'
    end
    object qrySubmenuInterna: TStringField
      FieldKind = fkLookup
      FieldName = 'Interna'
      LookupDataSet = qrySubMenus
      LookupKeyFields = 'INTERNA_CODIGO'
      LookupResultField = 'INTERNA_DESCRICAO'
      KeyFields = 'INTERNA_CODIGO'
      LookupCache = True
      Size = 50
      Lookup = True
    end
  end
  object dsSubmneu: TDataSource
    DataSet = qrySubmenu
    Left = 136
    Top = 264
  end
  object qryMenus: TADOQuery
    Connection = FormPrincipal.cnRegente
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM MENU'
      'ORDER BY MENU_CODIGO')
    Left = 56
    Top = 200
    object qryMenusMENU_CODIGO: TSmallintField
      FieldName = 'MENU_CODIGO'
    end
    object qryMenusMENU_TITULO: TStringField
      FieldName = 'MENU_TITULO'
      Size = 80
    end
  end
  object qrySubMenus: TADOQuery
    Connection = FormPrincipal.cnRegente
    CursorType = ctStatic
    DataSource = dsMenu
    Parameters = <
      item
        Name = 'MENU_CODIGO'
        Attributes = [paSigned]
        DataType = ftSmallint
        Precision = 5
        Size = 2
        Value = Null
      end>
    SQL.Strings = (
      'SELECT M.*,I.INTERNA_DESCRICAO FROM INTERNA I'
      'INNER JOIN INTERNAMENU M ON (I.INTERNA_CODIGO=M.INTERNA_CODIGO)'
      'WHERE (M.MENU_CODIGO=:MENU_CODIGO)'
      'ORDER BY I.INTERNA_CODIGO')
    Left = 56
    Top = 248
    object qrySubMenusINTERNA_CODIGO: TWordField
      FieldName = 'INTERNA_CODIGO'
    end
    object qrySubMenusINTERNA_DESCRICAO: TStringField
      FieldName = 'INTERNA_DESCRICAO'
      Size = 50
    end
    object qrySubMenusMENU_CODIGO: TSmallintField
      FieldName = 'MENU_CODIGO'
    end
  end
  object dsSubMenus: TDataSource
    DataSet = qrySubMenus
    Left = 56
    Top = 264
  end
end
